<%
Response.Buffer = TRUE
Dim objFS,objFolder,objFile
Set objFS = Server.CreateObject("Scripting.FileSystemObject")
' QUA DEVI CONTROLLARE IL PERCORSO DELLA CARTELLA
set objFolder = objFS.GetFolder("D:\Inetpub\webs\romeyeit\mouseart")
set objFile = objFolder.Files
response.write ("")
response.write ("FILE | ")
response.write ("Grandezza | ")
response.write ("Creato | ")
response.write ("Modificato | ")
For Each objFile In objFolder.Files
' QUA DEVI CONTROLLARE SE NON TI FUNZIONA IL LINK
response.write ("" & objFile.Name & " | ")
response.write ("" & objFile.Size & " | ")
response.write ("" & objFile.DateCreated & " | ")
response.write ("" & objFile.DatelastModified & " | ")
Next
response.write (" ")
'Pulisce variabili
Set objFile = Nothing
Set objFolder = Nothing
Set objFS = Nothing
%> |